<%
strCurrMenu=GetVariable("mnid")
if GetVariable("id")="" then
ShowMsg "您访问的信息不存在！"
end if
'新闻阅读次数＋1
conn.execute "Update web_news Set nHits=nHits + 1 Where id=" & GetVariable("id"),0,1
'读新闻
strSQL="Select * From v_web_news Where id=" & GetVariable("id")
rs.open strSQL,conn,1,1
if rs.recordcount<=0 then
ShowMsg "您访问的信息不存在！"
end if
%>